home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnetjam2.lha / CNetJam2 / cnet / pfiles / fido / NetUtils < prev    next >
Text File  |  1995-01-27  |  2KB  |  62 lines
  1. /**************************************************************************\
  2.                $VER: Net_Utils, v2.0 (27-Jan-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch
  6.  
  7. /* Allows access to some Network utilities. Add this line to the bottom of
  8.    your Menu # 1; SysOp Only Menu in "cnet:bbsmenu" file:
  9.  
  10.         NET, NET utils | {#0pfiles:fido/NetUtils}
  11.                          ^
  12.                     Control-Q
  13. */
  14.  
  15. NETUTILS:
  16.   tr 'n1r1  CNet Amiga FIDO-Net Utilities  r0n1'
  17.   tr '1. Net Logs'
  18.   tr '2. Get Node Info'
  19.   tr '3. List Net Names'
  20.   tr '4. List  Accounting'
  21.   tr '5. Clear Accountingn1'
  22.   tr 'Q. Quit Net Utilsn1'
  23.   se 'Net> ';gc;a=result
  24.   if a<1 | a>5 then do;tr 'Quit';exit;end
  25.   if a=1 then signal NETLOGS
  26.   if a=2 then signal GETNODE
  27.   if a=3 then signal ENETNUM
  28.   if a=4 then signal LISTACCT
  29.   if a=5 then signal CLEARACCT
  30.  
  31. NETLOGS:
  32.   se 'Net Logsn1#0pfiles:fido/NetLogViewer}'
  33.  signal NETUTILS
  34.  
  35. GETNODE:
  36.   se 'Get Noden1#0pfiles:fido/Look_Up}'
  37.  signal NETUTILS
  38.  
  39. ENETNUM:
  40.   se 'List Netn2c6ENumNet Addressc9:cai16512 20}n1'
  41.   getuser 70;arg=result;se 'ce#4fido:ENumNet 'arg'}'
  42.  signal NETUTILS
  43.  
  44. LISTACCT:
  45.   se 'List Accountingn2ce#4fido:ListAcct}'
  46.  signal NETUTILS
  47.  
  48. CLEARACCT:
  49.   se 'Clear Accountingn2c6Node to Clearc9:cai16512 20}n1';gu 70;arg=result
  50.   if arg='' then do;se 'c6Clear cbALL c6Nodes? c7[caYesc7]c6: ca'
  51.     gc;a=result;if a='N' then do;tr 'No.';signal NETUTILS;end
  52.     arg='ALL';tr 'Yes!ce#4fido:ClearAcct 'arg'}n1';end
  53.  signal LISTACCT
  54.  
  55. exit
  56.  
  57. SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:'
  58.   gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
  59.   do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  60. /** Last Edited: 27-Jan-95 ************************************************\
  61. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  62.